SET CONS OFF
IF RANKV='9th'
   SET CONS OFF
   @ 23,1 CLEA TO 23,78
   @ 23,04 SAY '>>>>> YOU CANNOT REVIEW MORE THAN THE 9 LAST VISITS - TYPE ANY KEY <<<<<'
   WAIT ' '
ELSE
   @ 13,1 CLEA TO 23,78
   @ 18,14 SAY "THERE IS NO PREVIOUS VISIT RECORDED FOR THIS PATIENT"
ENDIF
MIX=SPACE(1)
UMIX=SPACE(1)
set color to n/bg
@ 23,1 CLEA TO 23,78
@ 23,04 SAY 'Type : "A" TO REVIEW HISTORY OF ANOTHER PATIENT  -  "Q" TO QUIT PROGRAM'
SET COLOR TO BG+/B,W+/N
DO WHILE UMIX<>'A' .AND. UMIX<>'Q'
   WAIT ' ' TO MIX
   UMIX=UPPER(MIX)
   DO CASE
      CASE UMIX='A'
         PREV='N'
         ANO='Y'
      CASE UMIX='Q'
         PREV='N'
         ANO='N'
   ENDCASE
ENDDO
set cons on
